 @include "lib.awk"
 BEGIN  { OFS=FS="," }
 NR==1  { 
          if (split(Want,Goals,",") < 1 )  exit; 
	      for(I in Goals) Goals[I]=trim(Goals[I])
		  for(I=1;I<=NF;I++) Name[trim($I)]=I; }
 NF < 2 { next }
        { Out=$Name[Goals[1]]
	      if (/#/) Out = "#" Out
          for(I=2;I<=length(Goals);I++) 
 				Out = Out OFS $Name[Goals[I]]
 		 print Out
        }

